﻿Public Class ClassColHisto
    'Collection indexée d'historiques
    Inherits System.Collections.ObjectModel.KeyedCollection(Of String, ClassHisto)

    Protected Overrides Function GetKeyForItem(ByVal item As ClassHisto) As String
        Return item.Cle
    End Function

    Friend Overloads Sub add(ByVal Key As String, ByRef Item As ClassHisto)
        If Not Me.Contains(Key) Then
            Try
                Me.add(Item)
            Catch eX As Exception
                'Nothing
            End Try
        End If
    End Sub

End Class
